This forum is closed to new posts and
responses. Individual names altered for privacy purposes. The information contained in this website is provided for informational purposes only and should not be construed as a forum for customer support requests. Any customer support requests should be directed to the official HCL customer support channels below:
RE: SpamAssasin and Notes filtering ~Fritz Elnuader 17.Dec.03 10:39 PM a Web browser Notes Client All ReleasesAll Platforms
We also use Spam Assasin for our 1800+ users. We modified our mail template by adding one 'Before mail arrives' agent. We called it Spam Redirect. Here is the Agent:
Sub Initialize
Dim session As New NotesSession
Dim note As NotesDocument
Dim db As NotesDatabase
Dim paramarray As Variant
Dim params List As String
Set session = New NotesSession
Set db = session.CurrentDatabase
Set note = session.DocumentContext
If Val(params("hits")) >= Val(params("required")) Then
Call db.EnableFolder("Spam")
Call note.PutInFolder( "Spam" )
Call note.RemoveFromFolder("($Inbox)")
End If
End If
End Sub
With Spam assasin we set a threshold (required param) and then test it within Notes. If the 'hits' (spam assasins tests) are higher than our 'required' threshlod, then it appears to be spam and it's redirected to a Spam folder (this folder is created by the agent if it doesn't exist).
You can also 'tighten' individual users agents by simply modifying the agent by removing the Required params and replacing it with a number:
Sub Initialize
Dim session As New NotesSession
Dim note As NotesDocument
Dim db As NotesDatabase
Dim paramarray As Variant
Dim params List As String
Set session = New NotesSession
Set db = session.CurrentDatabase
Set note = session.DocumentContext
Return to top
. . RE: SpamAssasin and Notes filtering... (~Fritz Elnuader... 17.Dec.03) 
Print this page
